1 GOSUB60000
10 FORDI=49152TO49415:READDA:POKEDI,DA:NEXT
20 ME=0
30 PRINT"[147]":F=53280:POKEF,0:POKEF+1,0
40 REM        POKE808,234
50 POKE53265,11:PRINTCHR$(142)
60 CLOSE1:CLOSE2:CLOSE15:PRINT"[147][159]                                        ";
70 POKEF,4:POKEF+1,6:IFPEEK(788)=76THENSYS820
80 PRINT"***** HOUSEHOLD INVENTORY PROGRAM ******";
90 PRINT"         **** VERSION 3.2 ****          [154]"
100 REM R.W. KOBER WROTE THIS PROGRAM
110 REM VERSION 3.2  MARCH 24,1985
120 PRINTTAB(15)"[145][159]        [146]"
130 PRINTTAB(15)"[159] *MENU* [146]                "
140 PRINTTAB(15)"[159]        [146]                "
150 PRINT"      [159]1[146][150] = READ FILE DATA ON SCREEN."
160 PRINT"      [159]2[146][150] = CREATE A NEW FILE."
170 PRINT"      [159]3[146][150] = EDIT OR INSERT INTO A FILE."
180 PRINT"      [159]4[146][150] = PRINT FILE DATA TO PRINTER."
190 PRINT"      [159]5[146][150] = LIST FILE DIRECTORY."
200 PRINT"      [159]6[146][150] = HELP (INFORMATION)."
210 PRINT"      [159]7[146][150] = SCRATCH A FILE."
220 PRINT"      [159]E[146][150] = EXIT INVENTORY PROGRAM."
230 PRINT"[158]   '\' RETURNS TO MENU AT ANY PROMPT    [146][154]":H=0:DS=0
240 IFME<1THENPRINTTAB(26)"[155]BY BOB KOBER"
250 IFME<1THENPRINTTAB(27)"APR 1,1985[154]":GOSUB2760
260 IFME<1THENFORMU=820TO907:READNO:POKEMU,NO:NEXT:ME=1:PRINT"[145][145][145][159]":GOTO130
270 GOSUB1720:POKE19,0:IFR$="E"THEN2800
280 IFR$="\"THEN60
290 IFR$="^"THENR$="5"
300 POKE54296,0:R=VAL(R$):IFR<1ORR>7THEN270
310 IFR>0ANDR<5THENCLOSE15:OPEN15,8,15
320 Z=R:ONRGOTO460,330,460,460,2590,1780,2910
330 POKEF,2:POKEF+1,2:GOSUB1580
340 PRINT:PRINT"  [158] WARNING!!! [146] ANY EXISTING FILE WITH "
350 PRINT"  THIS NAME WILL BE REPLACED!![154]"
360 PRINT"[145][145][145][145][145][145][145][145][145]"
370 PRINT:PRINT"[144]  ENTER NEW FILENAME ";
380 GOSUB2600:IFK$="^"THENSYS49152:GOTO330
390 PO=1
400 IFKF=2THEN330
410 IFKF=1THENPRINT"[145][145]":GOTO370
420 CLOSE2:OPEN2,8,5,"@0:"+F$+",S,W":GOSUB2150
430 IFZ=3THENPRINT"[147]":GOTO880
440 GOSUB1210:IFCTHENGOSUB1460:GOTO440
450 GOTO810
460 IFZ=1THENPOKEF,11:POKEF+1,11
470 IFZ=3THENPOKEF,6:POKEF+1,6
480 IFZ=4THENPOKEF,9:POKEF+1,9
490 GOSUB1580
500 PRINT:PRINT"[158]  ENTER FILENAME ";
510 IFZ=1THENPRINT:PRINT"  (WILD CARDS MAY BE USED)"
520 IFZ=3THENPRINT:PRINT" [158] WARNING! [146] [159]THE EXISTING FILE WITH"
530 IFZ=3THENPRINT" THIS NAME WILL BE EDITED!!![145][145][158]"
540 IFZ=1ORZ=3THENPRINTTAB(18)"[145][145][145][145]";
550 GOSUB2600:IFK$="^"THENSYS49152:GOTO460
560 IFKF=2THEN460
570 IFKF=1THENPRINT"[145][145]":GOTO500
580 CLOSE1:OPEN1,8,6,"0:"+F$+",S,R":GOSUB2150
590 X$=""
600 IFZ=4THEN2190
610 IFZ=2THEN340
620 IFZ=3THEN420
630 GOSUB3120:IFMS=1THENMS=0:GOTO60
640 IFMS=2THENGOSUB1750:IFR$="\"THEN60
650 IFMS=2THEN580
660 GOSUB1490:IFC>1THEN750
670 GOSUB1420:IFCTHEN760
680 GOSUB1490:IFC>1THEN760
690 GOSUB1430:IFCTHEN760
700 GOSUB1490:IFC>1THEN760
710 GOSUB1430:IFCTHEN760
720 GOSUB1650
730 GOSUB1750:IFR$<>"\"THEN660
740 GOTO810
750 PRINT"[147] END OF MODE #1 [146]  DONE READING DATA FILE":PRINT
760 GOSUB1650
770 IFC=1THENPRINTTAB(11)"[159] END OF DATA FILE! [146][154]":GOTO800
780 IFC>1ANDST<>64THENPRINT"DISK ERROR ( STATUS = ";ST;")"
790 PRINTTAB(11)"[159] END OF DATA FILE! [146][154]"
800 GOSUB1710
810 CLOSE1:CLOSE2:CLOSE15:I9$="":IFR$="^"THENSYS49152
820 GOTO60
830 GOSUB1490:IFC>1THEN1120
840 IFZ=3ANDLEFT$(I$,LEN(I9$))=I9$THENGOSUB1580:GOTO890
850 PRINT" NOW COPYING : [158]"I$"                     [145][145][154]"
860 GOSUB1460:IFC=1THEN1120
870 IFI9$<>""THEN830
880 GOSUB1490:IFC>1THEN1120
890 GOSUB1580:GOSUB1430:GOSUB1650:PRINT"[145] [158]DESIRED ACTION: (ENTER BY NUMBER)"
900 PRINT"  [150]1[154][146] = COPY THIS ITEM WITH NO CHANGES."
910 PRINT"  [150]2[154][146] = [150] DELETE [146][154] THIS ITEM."
920 PRINT"  [150]3[154][146] = INSERT ITEMS BEFORE THIS ONE."
930 PRINT"  [150]4[154][146] = SEARCH UNTIL ITEM IS FOUND."
940 PRINT"  [150]\[154][146] = RETURN TO THE MAIN MENU."
950 PRINT" [158]ACTION ? ";:POKE204,0
960 GOSUB1720:IFR$="\"THENPRINT"[158]OK-PLEASE WAIT WHILE ALL ITEMS ARE RE-COPIED[154]"
970 IFR$="\"THENI9$="QZQZQZQZ":GOTO840
980 R=VAL(R$):IFR<1ORR>4THEN960
990 PRINTTAB(10)" ";R$;" [146][154]":PRINT"            [145][158]  OKAY  [146][154]":FORD=1TO500:NEXT
1000 I9$="":ON R GOTO860,1010,1030,1060,810
1010 IFC=1THEN1120
1020 GOTO880
1030 I9$=I$:W9$=W$:M9$=M$:S9$=S$:D9$=D$:V9$=V$:C9=CC
1040 GOSUB1210:IFCTHENGOSUB1460:GOTO1040
1050 I$=I9$:W$=W9$:M$=M9$:S$=S9$:D$=D9$:V$=V9$:C=C9:GOTO890
1060 GOSUB1580:PRINT" ALL ENTRIES WILL BE COPIED UNTIL"
1070 PRINT:PRINT" DESIRED ITEM IS FOUND;"
1080 PRINT:PRINT:PRINT" ENTER ITEM TO SEARCH FOR:"
1090 INPUT"   [158]END[157][157][157][157][157][154]";I9$
1100 IFLEFT$(I9$,1)="\"THENR$="\":PRINT"SEARCH ABORTED! PLEASE WAIT":GOTO970
1110 PRINT" WAIT!!  SEARCHING FOR ";I9$:GOTO840
1120 IFI9$="QZQZQZQZ"THENH=1:GOTO1140
1130 K=0
1140 GOSUB1580:IFC>1THEN780
1150 IFH<>1THENPRINT"[150]  END OF INPUT FILE!"
1160 IFH<>1THENPRINT:PRINT"  DO YOU WANT TO ADD ANY ENTRIES TO THE"
1170 IFH<>1THENPRINT:PRINT"  END OF THIS DATA FILE?";
1180 GOSUB1660:IFR$="N"THENPRINTTAB(5)" [158] OKAY [146][154] RETURNING TO MENU":GOTO810
1190 GOSUB1210:IFCTHENGOSUB1460:GOTO1190
1200 GOTO810
1210 C=0:PRINT"[147][144]        ENTER ITEM INFORMATION":PRINT" D = DONE ENTERING DATA"
1220 PRINT" E = ERROR, RESTART ENTIRE ITEM"
1230 PRINT:PRINT" DO NOT USE ',' OR ':' WITHIN THE DATA"
1240 PRINT:PRINT" PRESS RETURN[146] AFTER EACH ENTRY"
1250 GOSUB1650:INPUT"[144] ITEM [146]   ?[157][157][157]";I$:IFI$="E"THEN1210
1260 IFI$="D"THEN1400
1270 INPUT " MAKE [146]   ?[157][157][157]";W$:IF W$="E"THEN1210
1280 IFW$="D"THEN1400
1290 INPUT" MODEL [146]   ?[157][157][157]";M$:IF M$="E"THEN1210
1300 IFM$="D"THEN1400
1310 INPUT" SERIAL #/ID [146]   ?[157][157][157]";S$:IFS$="E"THEN1210
1320 IFS$="D"THEN1400
1330 INPUT" DATE ACQ'D [146] (MONTH/DAY/YEAR)   ?[157][157][157]";D$:IF D$="E"THEN1210
1340 D$=LEFT$(D$,8):IFD$="D"THEN1400
1350 INPUT" $ VALUE [146]   ?[157][157][157]";V$:IFV$="E"THEN1210
1360 IFV$="D"THEN1400
1370 GOSUB1420:GOSUB1650
1380 PRINT"[158] IS THIS ENTRY CORRECT?";:GOSUB1660:IFR$="N"THEN1210
1390 C=1:PO=0:RETURN
1400 PRINTTAB(7)"[150]RETURNING TO THE MENU-----":IFPO=0THENRETURN
1410 CLOSE15:OPEN15,8,15:PRINT#15,"S:"F$:RETURN
1420 PRINT"[147]";
1430 PRINT"[153] ITEM:[146] ";I$:PRINT" MAKE:[146] ";W$:PRINT" MODEL[146] ";M$
1440 PRINT" SERIAL #/ID:[146] ";S$
1450 PRINT" DATE ACQ'D:[146] "D$;TAB(22);" VALUE:[146] $";V$;"[154]":PRINT:RETURN
1460 X$=I$:GOSUB1480:X$=W$:GOSUB1480:X$=M$:GOSUB1480
1470 X$=S$:GOSUB1480:X$=D$:GOSUB1480:X$=V$
1480 PRINT#2,X$;CHR$(13);:GOTO2150
1490 GOSUB1560:I$=X$:IFCTHENRETURN
1500 GOSUB1560:W$=X$:IFCTHENRETURN
1510 GOSUB1560:M$=X$:IFCTHENRETURN
1520 GOSUB1560:S$=X$:IFCTHENRETURN
1530 GOSUB1560:D$=X$:IFCTHENRETURN
1540 GOSUB1560:V$=X$:IFC=2THENC=1
1550 RETURN
1560 C=0:INPUT#1,X$:IFSTTHENC=3:IFST=64THENC=2
1570 GOTO2150
1580 IFZ=1THENPRINT"[147]   MODE #1 [146]  READ FILE DATA ON SCREEN":IFDS=1THEN1650
1590 IFZ=2THENPRINT"[147][158]      MODE #2 [146]  CREATE A NEW FILE"
1600 IFZ=3THENPRINT"[147][159]    MODE #3 [146]  EDIT (OR APPEND) A FILE"
1610 IFZ=4THENPRINT"[147]   MODE #4 [146] PRINT DATA FILE TO PRINTER"
1620 PRINT
1630 IFZ<5THENPRINT"    ENTER '\' TO RETURN TO THE MENU"
1640 IFZ<5ANDZ<>3THENPRINT"    ENTER '^' TO LIST THE FILE DIRECTORY"
1650 PRINT"---------------------------------------[154]":PRINT:RETURN
1660 IFH<>1THENPRINT" (Y/N) ? ";
1670 GOSUB1720:IFR$<>"Y"ANDR$<>"N"ANDR$<>"\"THEN1670
1680 IFH<>1THENPRINTR$
1690 IFR$="\"THENR$="N"
1700 RETURN
1710 PRINT:PRINT"[150]   HIT ANY KEY WHEN READY TO CONTINUE   [146][154]";:GOTO1760
1720 GETR$:IFI9$="QZQZQZQZ"THENR$="N"
1730 IFR$=""THEN1720
1740 POKE204,1:RETURN
1750 PRINT:PRINT"   [150] HIT ANY KEY TO CONTINUE, \=MENU [146][154]";
1760 GOSUB1720:IFZ=6THENRETURN
1770 PRINT:PRINTTAB(15)"[158] OKAY [146][154]":FORD=1TO100:NEXT:PRINT"[147]":RETURN
1780 POKEF,11:POKEF+1,11:PRINT""
1790 PRINT"[147][146]THIS PROGRAM IS DESIGNED TO WRITE, READ,";
1800 PRINT"PRINT, EDIT, OR APPEND DISK DATA FILES "
1810 PRINT"CONTAINING INFORMATION ON YOUR HOUSEHOLD";
1820 PRINT"OR PERSONAL POSSESSIONS.":PRINT"THIS INFORMATION INCLUDES A FIELD FOR"
1830 PRINT"ITEM DESCRIPTION, THE MAKE, MODEL, S/N"
1840 PRINT"(OR OTHER MARKS), DATE ACQUIRED & VALUE."
1850 PRINT"THIS DATA SHOULD BE OF GREAT VALUE FOR"
1860 PRINT"INSURANCE IN CASE OF FIRE OR THEFT."
1870 PRINT:PRINT"SEQ FILE HANDLING ON DISK IS INCLUDED TO";
1880 PRINT"ALLOW USING SEPARATE FILE NAMES FOR EACH";
1890 PRINT"ROOM, SPECIAL COLLECTIONS, ETC."
1900 PRINT"EASY MAINTENANCE IS PROVIDED, AND THIS"
1910 PRINT"PROGRAM AND ALL DATA CAN BE STORED ON "
1920 PRINT"A SINGLE DISK. AN EXTRA COPY SHOULD BE"
1930 PRINT"KEPT IN A SAFE REMOTE LOCATION.
1940 [141]1710:[153]"LOAD"
1950 [153]"THIS PROGRAM IS MENU DRIVEN, AND SELF"
1960 [153]"EXPLANATORY."
1970 [153]"ENTERING A SYS'\' AT ANY PROMPT WILL "
1980 [153]"SAFELY ABORT THE PRESENT OPERATION, AND"
1990 [153]"RETURN THE PROGRAM TO THE MAIN MENU."
2000 [153]"MUCH EFFORT HAS BEEN EXERTED TO ASSURE"
2010 [153]"THAT THIS PROGRAM IS AS USER FRIENDLY AS";
2020 [153]"POSSIBLE. EXPERIMENT WITH THE VARIOUS"
2030 [153]"MODES, UNTIL YOU BECOME FAMILIAR WITH"
2040 [153]"ALL OF THE FEATURES OF THIS PROGRAM."
2050 [153][163]40)"BY BOB KOBER, BUFFALO, TX. 214/322-4192"
2060 [153]"     SYS PRESS \ FOR THE MAIN MENU "
2070 [161]K$:[139]K$[178]""[167]2070
2080 [139]K$[178]"\"[167]60
2090 [139]KC$[178]""[167][139]K$[178]"3"[167]KC$[178]"3":K$[178]"":[137]2070
2100 [139]K$[178]"4"[167][139]KC$[178]"3"[167]KC$[178]"34"
2110 [139]KC$[178]"34"[167][151]808,237:[151]774,26:[151]775,167:[160]1:[160]2:[160]15
2120 [139]KC$[178]"34"[167][158]65126
2130 K$[178]"":KC$[178]"":[137]2070
2140 [151]53281,6:[151]53280,14:[153]"CONT":[137]60
2150 [132]15,EN,EM$,ET,ES:[139]EN[178]0[167][142]
2160 [153]"LOAD               DISK ERROR WAIT":[153]
2170 [153]"       "EN;EM$;ET;ES
2180 [141]1620:[137]800
2190 [153]"LOAD"[163]248)"1. PRINT ITEM NAMES ONLY."
2200 [153][163]48)"2. PRINT ALL INFORMATION."
2210 [153][163]132)"ENTER 1 OR 2"
2220 [161]PS$:[139]PS$[178]""[167]2220
2230 PS[178][197](PS$):[139]PS[179]1[176]PS[177]2[167]2220
2240 [139]PS[178]2[167]PS[178]0
2250 [153]"LOAD    SET PRINTER HEAD TO 'TOP OF PAGE'"
2260 [153][163]86)" PRESS ANY KEY TO CONTINUE ":[153][163]171)"PRESS '\' FOR MENU
2270 GETA$:IFA$=""THEN2270
2280 IFA$="\"THENCLOSE4:GOTO60
2290 GOSUB2710:IFXX=1THEN60
2300 OPEN4,4:P=1:GOSUB2540
2310 PRINT"[147]           PRINTING DATA..."
2320 PRINT" PRESS 'SHIFT' TO PAUSE PRINTING AT THE":PRINT" END OF ANY ITEM"
2330 PRINTTAB(48)"(SHIFT LOCK MAY BE USED)"
2340 GOSUB1490:IFC>1THEN2530
2350 PRINT#4,"      ITEM: ";I$:IFPSTHEN2430
2360 PRINT#4,"      MAKE: ";W$
2370 PRINT#4,"      MODEL: ";M$
2380 PRINT#4,"      SERIAL #/ID: ";S$
2390 PRINT#4,"      DATE ACQ'D: ";D$
2400 PRINT#4,"      VALUE:";V$
2410 PRINT#4:PRINT#4
2420 L=L+1:IFL=7THENGOSUB2540
2430 IFPSTHENL=L+1:IFL=54THENPRINT:PRINT:GOSUB2540
2440 IFPEEK(653)<>1THEN2340
2450 PRINT"[147]           PRINTING PAUSED..."
2460 PRINT" PRESS 'C' TO CONTINUE":PRINT" PRESS '\' TO RETURN TO MENU"
2470 GETR$:IFR$="C"THEN2310
2480 IFR$="[169]"ORR$="[195]"THENPRINT"   * * * CHECK SHIFT LOCK KEY!! * * * "
2490 IFR$<>"\"THEN2470
2500 PRINT"********** LISTING TERMINATED **********"
2510 PRINT"      RETURNING TO MENU------------"
2520 PRINT#4:PRINT#4,"             ***** LISTING TERMINATED ******"
2530 PRINT#4,CHR$(12):CLOSE4:GOTO810
2540 IFP>1THENFORI=1TO4:PRINT#4:NEXT
2550 FORI=1TO2:PRINT#4:NEXT
2560 PRINT#4,CHR$(12);"INVENTORY LISTING OF FILE:      ";F$
2570 PRINT#4,"    ****    PAGE:  ";P
2580 PRINT#4:PRINT#4:L=0:P=P+1:RETURN
2590 SYS49152:GOTO60
2600 F$="":KF=0:POKE198,0
2610 POKE207,0:POKE204,0:GETK$:IFK$=""THEN2610
2620 IFF$<>""THENIFK$=CHR$(20)THENPRINT" [157][157] [157]";:F$=LEFT$(F$,LEN(F$)-1):GOTO2610
2630 IFF$=""THENIFK$=CHR$(13)THENKF=1
2640 IFK$=CHR$(13)THENPOKE204,1:RETURN
2650 IFK$="\"THENPOKE204,1:F$="":GOTO60
2660 IFR<>3THENIFK$="^"THENPOKE204,1:F$="":RETURN
2670 F$=F$+K$:PRINTK$;
2680 IFLEN(F$)>16THENPRINT:PRINT"   ******* FILENAME TOO LONG *******"
2690 IFLEN(F$)>16THENPOKE204,1:FORI=1TO2000:NEXT:KF=2:RETURN
2700 GOTO2610
2710 PRINT"[147]":OPEN4,4:XX=0
2720 PRINT#4:IFNOTPEEK(144)AND128THENCLOSE4:PRINT"[147]":RETURN
2730 PRINTTAB(245)"THE PRINTER IS NOT TURNED ON!":PRINTTAB(254)"'\' = MENU"
2740 IFPEEK(197)<>48THENPRINT"":GOTO2720
2750 CLOSE4:XX=1:POKE198,0:RETURN
2760 FORL=54272TO54296:POKEL,0:NEXT
2770 POKE54296,15:POKE54277,128:POKE54278,250:POKE54272,255:POKE54276,17
2780 POKE54273,255:FORI=255TO30STEP-1.5:POKE54273,I:NEXT:POKE53265,27
2790 POKE54276,129:FORI=1TO15STEP.5:POKE54273,15:NEXT:POKE54276,128:RETURN
2800 POKE850,62:POKE871,234:POKE872,234:POKE906,112:PRINT"[147]":TI$="000000"
2810 IFPEEK(820)<>169THEN2830
2820 SYS820
2830 SE$=STR$(10-VAL(RIGHT$(TI$,2)))
2840 PRINT""TAB(242)"TO RE-ENTER THE INVENTORY PROGRAM,"
2850 PRINTSPC(44)"PRESS THE <RETURN> KEY WITHIN "
2860 PRINTTAB(49)"THE NEXT[158]"SE$"[154] SECONDS.   "
2870 GETK$:IFK$=CHR$(13)THENGOTO60
2880 IFSE$<>" 0"THEN2830
2890 PRINT"[147]"TAB(250)"TIME'S UP   BYE-BYE":PRINTTAB(215)"R.W. KOBER"
2900 SYS820:FORI=1TO2000:NEXT:GOTO63000
2910 PRINT"[147]":POKEF,9:POKEF+1,15
2920 PRINTTAB(40)"                                        ";
2930 PRINT"    THIS ROUTINE WILL SCRATCH A FILE    ";
2940 PRINT"                                        "
2950 PRINTTAB(42)"ENTER '\' TO RETURN TO THE MENU."
2960 PRINTTAB(42)"ENTER '^' TO LIST THE FILE DIRECTORY."
2970 PRINT"----------------------------------------";
2980 PRINT" ENTER FILENAME ";
2990 GOSUB2600:IFKF=1THENPRINT"":GOTO2920
3000 IFKF=2THEN2910
3010 IFK$="^"THENSYS49152:GOTO2910
3020 PRINT:PRINT"   ARE YOU SURE?? (Y/N) "
3030 GETK$:IFK$=""THEN3030
3040 IFK$<>"Y"THENF$="":GOTO2910
3050 PRINT" OKAY, SCRATCHING  "F$" [146] NOW."
3060 CLOSE15:OPEN15,8,15
3070 PRINT#15,"S:"F$
3080 INPUT#15,E,E$,T,S:G$=LEFT$(E$,4)+RIGHT$(E$,10):EF$=" "+F$+" [146] "+G$
3090 IFT=0THENPRINTTAB(88)"**** FILE NOT FOUND ****":FORI=1TO1500:NEXT:GOTO2910
3100 PRINT"":PRINTTAB(20-LEN(EF$)/2);EF$:FORI=1TO2000:NEXT
3110 CLOSE15:SYS49152:GOTO60
3120 NS=0:ZS=0:DS=1:GOSUB1580
3130 NF$="[144]READING FILE NAMED[158] "
3140 NF=LEN(NF$)+LEN(F$)-2
3150 PRINTTAB(20-NF/2)NF$+F$
3160 PRINTTAB(126)"[150]1. LIST ITEMS BY NAME ONLY."
3170 PRINTTAB(46)"2. LIST ALL DATA IN FILE."
3180 PRINTTAB(46)"3. SEARCH FOR SPECIFIC ITEM."
3190 PRINTTAB(46)"\. RETURN TO MAIN MENU."
3200 GOSUB1720:ZS=VAL(R$)
3210 IFR$="\"THEN3240
3220 IFZS<1ORZS>3THEN3200
3230 ONZSGOTO3280,3250,3260
3240 MS=1:RETURN
3250 MS=0:RETURN
3260 INPUT" ENTER SEARCH ITEM";SE$
3270 PRINT:JS=0:IFSE$="\"THEN3240
3280 PRINT"[147]":GOSUB1580:IFZS=1THENSE$="NONAME"
3290 NS=NS+1:XS=0:FORI=1TO6:INPUT#1,SS$(I):NEXT
3300 PRINT"[159] ITEM #"NS" "SS$(1):GOSUB3400:IFR$="\"THENCLOSE1:DS=0:MS=1:RETURN
3310 IFLEFT$(SS$(1),LEN(SE$))=SE$THENGOSUB3430:PRINT:GOSUB3360:JS=1
3320 IFXS<>1THENIFNOTST AND64THEN3290
3330 IFJS=0ORFL<>1THENIFZS<>1THENPRINT" SEARCH ITEM [158]"SE$"[159] NOT FOUND"
3340 IFXS<>1THENPRINTTAB(50)"[158]E N D  O F  F I L E"
3350 CLOSE1:DS=0:MS=2:RETURN
3360 PRINTTAB(49)"CONTINUE SEARCH (Y/N)?"
3370 GETK$:IFK$="Y"THENFL=0:GOSUB1580:RETURN
3380 IFK$<>"N"THEN3370
3390 FL=1:XS=1:RETURN
3400 IFPEEK(214)<20THENRETURN
3410 GOSUB1750:IFR$="\"THENRETURN
3420 GOSUB1580:RETURN
3430 PRINT"    [150] ITEM [192][146][192] "SS$(1)
3440 PRINT"    [150] MAKE [192][146][192] "SS$(2)
3450 PRINT"    [150] MODEL [146][192] "SS$(3)
3460 PRINT"    [150]  S/N [192][146][192] "SS$(4)
3470 PRINT"    [150] DATE [192][146][192] "SS$(5)
3480 PRINT"    [150] COST [192][146][192] $"SS$(6)
3490 RETURN
3500 DATA32,204,255,32,68,229,169,9,141,33,208,169,11,141,32,208,169
3510 DATA7,141,134,2,24,162,3,160,11,32,240,255,160,0,185,203,192
3520 DATA240,7,32,210,255,200,76,31,192,169,1,162,8,160,0,32,186
3530 DATA255,169,1,162,201,160,192,32,189,255,32,192,255,162,1,32,198
3540 DATA255,160,31,32,207,255,136,208,250,169,0,141,19,3,160,13,169
3550 DATA32,32,210,255,136,208,250,32,207,255,72,165,144,201,64,240,45
3560 DATA104,201,34,208,241,32,207,255,201,255,240,249,201,34,240,11,32
3570 DATA210,255,169,1,141,19,3,76,107,192,173,19,3,208,5,169,145
3580 DATA32,210,255,169,13,32,210,255,76,82,192,104,169,1,32,195,255
3590 DATA32,204,255,160,0,185,223,192,240,7,32,210,255,200,76,158,192
3600 DATA169,0,133,198,165,198,240,252,169,6,141,33,208,169,4,141,32
3610 DATA208,169,14,141,134,2,169,0,133,198,32,68,229,96,36,0,18
3620 DATA32,70,73,76,69,32,68,73,82,69,67,84,79,82,89,32,13
3630 DATA13,0,13,13,32,32,32,18,32,80,82,69,83,83,32,65,78
3640 DATA89,32,75,69,89,32,84,79,32,82,69,84,85,82,78,32,84
3650 DATA79,32,77,69,78,85,32,13,0
3660 DATA169,10,141,137,3,120,173,20,3,73,125,141,20,3,173,21,3
3670 DATA73,233,141,21,3,88,96,206,137,3,208,53,169,100,141,137,3
3680 DATA160,0,152,153,0,212,192,23,240,4,200,76,89,3,173,138,3
3690 DATA69,8,141,138,3,141,1,212,169,12,141,5,212,169,15,141,6
3700 DATA212,141,24,212,169,30,141,15,212,169,21,141,4,212,76,49,234
3710 DATA10,82,0
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"     [200]OUSE [201]NVENTORY     [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(14)"[210].[215]. [203]OBER"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:POKE204,1:POKE207,0:END